Ì i 2
lab.c.telcom.main (main)
[batch]
?SRT[srt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
batch 7 PINT R srt
autodialer 15 FREE L MIS.AUTODIAL ?SRT[srt]|12
batch.bkg.err.pgm 0 FREE L VAL="%LAB.C.TELCOM.bkg.err(1)"
date 8 DATE L ?SRT[srt]|0
device 15 FREE L ?SRT[srt]|13
entered.offset 9 TIME L ?SRT[srt]|1
eval.print.error 1 YN L VAL=IF{"Y"'=c.error.only;@LAB.C.TELCOM.except.x "Y";"N
VAL="}
eval.time 1 YN L VAL=IF{LAB.C.TELCOM.date=b.date&(@LAB.C.TELCOM.time<
VAL=;b.time) "N";LAB.C.TELCOM.date=e.date&(@LAB.C.TELC
VAL=OM.time>e.time) "N";"Y"}
from.date 8 DATE L ?SRT[srt]|10
from.date.ext 3 FREE L ?SRT[srt]|5
last.activity.date 8 DATE L VAL=-@LAB.C.TELCOM.activity.x[LAB.C.TELCOM.site,""]
line.class 10 FREE L MIS.LINE.CLASS
new.only 1 YN L ?SRT[srt]|7
print.q.cnt 1 PINT R ?SRT[srt]|15
printq.bkg.err.pgm 0 FREE L VAL="%LAB.C.TELCOM.bkg.err(2)"
prt.bkg.err.pgm 0 FREE L VAL="%LAB.C.TELCOM.bkg.err(3)"
records.printed 5 PINT R VAL=@LAB.C.RB.records.printed[LAB.C.TELCOM.report.batc
VAL=h]
records.sorted 5 PINT R VAL=@LAB.C.RB.records.sorted[LAB.C.TELCOM.report.batch
VAL=]
report 10 FREE L LAB.C.RPT ?SRT[srt]|4
report.batch 7 PINT R LAB.C.RB ?SRT[srt]|9
restart.batch 7 PINT R LAB.C.TELCOM ?SRT[srt]|8
schedule.bkg.err.pgm 0 FREE L VAL="%LAB.C.TELCOM.bkg.err(0)"
site 10 FREE L LAB.C.TELSITE ?SRT[srt]|2
status 10 CHOICE L ?SRT[srt]|14
thru.date 8 DATE L ?SRT[srt]|11
thru.date.ext 3 FREE L ?SRT[srt]|6
time 4 HHMM L VAL=%Z.time.out(@LAB.C.TELCOM.entered.offset)
type 6 CHOICE L ?SRT[srt]|3
Ì € i 2
lab.c.telcom.audit.trail (audit.trail)
[batch, audit.q]
?SRT[srt]A[srtAQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
audit.q 2 PINT R srtAQ
audit.error.flag 1 YN L ?SRT[srt]A[srtAQ]|2
audit.line 60 FREE L ?SRT[srt]A[srtAQ]|1
audit.time 7 PINT R ?SRT[srt]A[srtAQ]|0
audit.time.out 8 FREE L VAL=$TIME(@LAB.C.TELCOM.audit.time+@LAB.C.TELCOM.enter
VAL=ed.offset)
Ì i 2
lab.c.telcom.print.active (print.active)
[active.batch] = print.time
:SRTT[srt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
active.batch 7 PINT R LAB.C.TELCOM srt
active.autodialer 15 FREE L MIS.AUTODIAL :SRTT[srt]|1
active.time 9 PINT R :SRTT[srt]|0
Ì i 2
lab.c.telcom.print.queue (print.queue)
[print.q]
:SRTP[srtP]
Field Name Len Dat Typ J DPM Offset/Local/VAL
print.q 3 PINT R srtP
print.batch 7 PINT R LAB.C.TELCOM :SRTP[srtP]|0
print.parameters 30 FREE L :SRTP[srtP]|2
print.q.size 3 PINT R VAL=@Root(@LAB.C.TELCOM.print.queue)!0
print.time 9 PINT R :SRTP[srtP]|1
Ì i 2
lab.c.telcom.print.sites (print.sites)
[print.site,print.site.batch]
:SRTPS[srs,srt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
print.site 10 FREE L LAB.C.TELSITE srs
print.site.batch 7 PINT R LAB.C.TELCOM srt
print.site.status 6 CHOICE L :SRTPS[srs,srt]|0
Ì i 2
lab.c.telcom.site.queue (site.queue)
[site.q]
:SRTS[srtS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
site.q 2 PINT R srtS
site.day 3 DAY L :SRTS[srtS]|0
site.immediate.count 2 PINT R :SRTS[srtS]|5
site.immediate.priority 1 FREE L :SRTS[srtS]|4
site.immediate.report 10 FREE L LAB.C.RPT :SRTS[srtS]|6
site.q.size 3 PINT R VAL=@Root(@LAB.C.TELCOM.site.queue)!0
site.sort.key 6 PDEC R :SRTS[srtS]|2
site.time 4 HHMM L :SRTS[srtS]|1
site.urn 10 FREE L LAB.C.TELSITE :SRTS[srtS]|3
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
lab.c.telcom.activity.x [site,date,batch]
activity.x :SRTA[srs,srtD,srt]
lab.c.telcom.autodial.x [autodialer] = batch
autodial.x :SRTD[add]
lab.c.telcom.except.x [date,batch]
except.x :SRTE[srtD,srt]
lab.c.telcom.stop.x [report.batch] = batch
stop.x :SRTSTP[sce]
|
|
| | | | |